(describe-function-1): Don't print a whole lambda-function.

diff --git a/lisp/help.el b/lisp/help.el
index 833239825e1b70695af47b99d1fd44b23a56e1a9..71e3d6fa9693db0fc10691ffa1edfa1652ffa799 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -674,7 +674,7 @@ It can also be nil, if the definition is not associated with any file."
                         (t t))))
       (if (listp arglist)
          (progn
-           (princ (cons function
+           (princ (cons (if (symbolp function) function "anonymous")
                         (mapcar (lambda (arg)
                                   (if (memq arg '(&optional &rest))
                                       arg